#!/usr/bin/perl -CS
use HTML::Entities;
my $string = decode_entities ;
$_ = decode_entities "שפירא";
print "matches: '$&'\n" if $string =~ /$_/;
print "matches too: '$&'\n" if $string =~ /\b$_\b/;
__DATA__
8^1589-20170113-102647-ויחי-דברי_הספד_על_הרב_משה_שפירא.mp3^עברית^הרב מנשה גולד^ויחי-דברי הספד על הרב משה שפירא, טו' טבת, תשע'ז^שיעורים בתנ"ך ובפרשת השבוע|שיעורים בפרשת השבוע|שיעורים קודמים|בראשית|ויחי
__END__