21 lines
411 B
Text
21 lines
411 B
Text
#!/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;
|
|
}
|
|
|