Select Code to Download

#!/usr/bin/perl --

...
<img alt="!4" src="4" />
<img alt="!5" src="5" />

#!/usr/bin/perl --

use strict;
...
sub MAlt { '!' . $_[0]->attr('src') }

__END__