#!/usr/bin/perl -w

use strict;

my $sentence = "This is is a string of text.";

print "Repeated word!: $`->$&<-$'\n" if $sentence =~ /\b(\w+)\s+\1/;