#!/usr/bin/perl

# Tangled output generated by inweb: do not edit
#line 7 "inweb/Tests/Test Cases/perl.inweb"
print recolour("Santa likes red and green socks.\n");

#line 10 "inweb/Tests/Test Cases/perl.inweb"
sub recolour {
	my $text = $_[0];
	
{
#line 17 "inweb/Tests/Test Cases/perl.inweb"
	$text =~ s/red/blue/;
	$text =~ s/green/purple/;

}
#line 12 "inweb/Tests/Test Cases/perl.inweb"
;
	return $text;
}