while(<>) {
        my $filename = q{$_};
        $filename =~ s/\$/\\\$/;
        my $exec = `md5sum "$filename"`;
        print $exec ."\n";
}

##</code><code>##

/mnt1/$Recycle.Bin/S-1-5-21-3093161954-3233498542-1968413288-3198/$I7QM78L.pdf<br>
/mnt1/$Recycle.Bin/S-1-5-21-3093161954-3233498542-1968413288-3198/$ID84PBU.pdf<br>
/mnt1/$Recycle.Bin/S-1-5-21-3093161954-3233498542-1968413288-3198/$IDLL4FU.JPG<br>
/mnt1/$Recycle.Bin/S-1-5-21-3093161954-3233498542-1968413288-3198/$IE2ZPET.xls<br>
/mnt1/$Recycle.Bin/S-1-5-21-3093161954-3233498542-1968413288-3198/$IF73ZR5.jpg<br>

##</code><code>##

md5sum: $_: No such file or directory <br>
md5sum: $_: No such file or directory <br>
md5sum: $_: No such file or directory <br>
md5sum: $_: No such file or directory <br>