1 2 3 4 5 6 7 8 9
#!/usr/bin/perl use strict; foreach (@ARGV) { my $old = $_; my $new = $old; $new =~ s/des/des\/hcrypto/g; my $dir = $old; print "$new: heimdal/lib/des/hcrypto\n"; }