Help for this page
m/.{$width}/
$text =~ m/.*$endPat$/
$text =~ m/$endPat$/
substr($text,0-length($endPat)) eq $endPat