Help for this page
perl -ne'$m|=/regex/?print&&1:0}exit!$m;{' 1234567890123456789012345678901234567 1 2 3