#!perl -p
0while/[stop]?$/,s;[$`]$;