#!/usr/bin/perl

use strict; # https://perlmonks.org/?node_id=11135816
use warnings;

my $list = "This is my list";

$list =~ /(\w+)\W*\z/;

use Data::Dump 'dd'; dd $`, $1;

##</code><code>##

("This is my ", "list")