Select Code to Download

use 5.010;
use strict;
...

my $string = "the café";
say "GOT: $1" if $string =~ /(\w{4})/;