Note that

if ( ! ( $string =~ /pattern/ ) ) {
[download]

can be written

if ( $string !~ /pattern/ ) {
[download]

I hope this is of interest.