Select Code to Download

#!/usr/bin/perl

use strict;
use warnings;

open FILE, "/home/ajb004/Paradigms/roster.txt" or die $!;

        $_;

                $_ = $word;
                s/_/ /g;
                print "ID: $_\n";

                $word =~ s/_/ /g;
                print "ID: $word\n";

while ( my $line = <FILE> )
{
...
                print "ID: $word\n";
        }
}

#!/usr/bin/perl
use strict;
...
TEXT
}