ls *.txt | myscript.pl

##</code><code>##

#!/usr/bin/perl -w

my $filename = "";
my $inputline = "";
my $siteid = "";
my $sitename = "";

foreach $filename (@ARGV){
    open(FILE,$filename) or die "can't open file: $!\n";
    print "processing $filename\n";

    while ($inputline = <FILE>){
        if ($inputline =~ m/^Station/){
           print "$inputline\n";
         }
}
        close FILE;
}