use strict;
use warnings;

my $string = "This is some pretty darn boring text";


if ( $string =~ /darn/ ) {
	print prematch($string), "\n";
	print postmatch($string), "\n";
	print match($string), "\n";
}