#!/usr/bin/perl
sub {$_="/(Just).*( another).*( Perl).*( hacker,)/,print\$".((caller)[2]-1);eval}->();
sub {$_="/(Just).*( another).*( Perl).*( hacker,)/,print\$".((caller)[2]-1);eval}->();
sub {$_="/(Just).*( another).*( Perl).*( hacker,)/,print\$".((caller)[2]-1);eval}->();
sub {$_="/(Just).*( another).*( Perl).*( hacker,)/,print\$".((caller)[2]-1);eval}->();