perl -MO=Deparse -e'$line =~ /line/../\\Z/'
$line =~ /line/ .. /\\Z/;