my $str = "abc";
print $str =~ m/(.)|$/g ? "matched! ".($1//'$') : 'no match', "\n"
	for 1..5;

__END__

matched! a
matched! b
matched! c
matched! $
no match