#!/usr/bin/perl

package Sorry;

use overload
	'-' => sub { "@_\n" },
	'!' => sub { __PACKAGE__->new("Perl Hacker"); },
	'""' => sub { $_[0]->[0] };

sub new { bless [$_[1] // "Just Another"] }

package main;

my $orry = Sorry->new;

print $orry - not $orry;