It could just be a badly-worded golf.

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

Take your pick. :-)

------
We are the carpenters and bricklayers of the Information Age.

Don't go borrowing trouble. For programmers, this means Worry only about what you need to implement.