in reply to use of last

why not use a while loop like:
my $x = 'FALSE'; while ( $x ) { $x = 'TRUE'; last if( $x =~ /TRUE/ ); } print 'Script is now outside of while loop and $x is TRUE';