Поскольку требуется совпадение без учета регистра, используйте модификатор i
:
#!/usr/bin/env perl
use strict;
use warnings;
my $search = "Sony's";
my $string = "in TV sony's walkman";
if ( my ($match) = $string =~ /($search)/i ) {
print "Matched string: $match";
}
Пожалуйста, прочитайте: perldoc perlretut
.