#!/usr/bin/perl

use Term::ANSIColor qw(:constants);

print GREEN,

open (FILE, "railcardata.txt");
while (<FILE>) {
chomp;
($roadname, $roadnumber, $cartype, $interrr) = split(":");
write;
}

close (FILE);

format STDOUT_TOP =

======================================================================
ROAD NAME	ROAD NUMBER	CAR TYPE	INTERCHANGE RAILROAD
======================================================================

.
format STDOUT =
@<<<<<<<<<<<<<	@<<<<<<<<<<<<<<	@<<<<<<<<<<<<<<	@<<<<<<<<<<<
$roadname, $roadnumber, $cartype, $interrr
.

sleep 12;