#!/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;
[download]

Outputs:

("This is my ", "list")
[download]