#!/usr/bin/perl

open(F,"routes.html");

while (<F>)
{
  chop;
print;
print ","
}