use 5.010;
use strict;
use warnings;
use utf8::all;

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