use strict; my $url = 'ftp://ftp.thesite.com/directory/'; my $content = get($url); my @files; push(@files,$content); for(@files) { if( $_ =~ /(abcdef)/ ) { print "$1\n"; print (scalar(@files)); } }