use strict;
open sourcefile, "source.cbl" or die "Can't open: $!";
open targetfile, "source.ada" or die "Can't open: $!";

foreach my $line (<sourcefile>) {
if ($line =~ /WORKING -STORAGE SECTION./)
{
print targetfile tr/WORKING -STORAGE SECTION./declare;/;
}
elsif ($line =~ /PROGRAM -BEGIN./)
{
print targetfile tr/PROGRAM -BEGIN./begin;/;
}
elsif ($line =~ /^DISPLAY/)
{
print targetfile tr/DISPLAY/PUT/;
}
elsif ($line =~ /^ACCEPT/)
{
print targetfile tr/ACCEPT/GET/;
}
elsif ($line =~ /PROGRAM -DONE./)
{
print targetfile tr/PROGRAM -DONE./END;/;
}
else
{ print "none";
}

}

close sourcefile or die "Can't close: $!";