#!/usr/bin/perl -wT
use strict;

my $text = 'fedcba';
$text =~ (/(a|ba|cba|dcba)$/);

print "Match: $1\n";

=OUTPUT
Match: dcba