#234567890#234567890#234567890
$_=$foo;
$_&&length<=50&&/foo/;
/(?=.{0,50}\z)foo/s;