Help for this page
#!/usr/bin/perl ... g h i
goto eif: d h
goto ewhile: d f g h
#!/usr/bin/perl ... loop: g // matched