http://www.perlmonks.org?node_id=738188


in reply to subsitute s/ and match m/ failure

As clarification of what's been said elsewhere, you are testing the wrong element of the split ... to use your original code, change 
$model =~ s/\.log$//;
die if $model =~ /log/;

[download]
to read 
$ip =~ s/\.log$//;
die if $ip =~ /log/;

[download]

A user level that continues to overstate my experience :-))

In Section Seekers of Perl Wisdom