print qq{\d\w};
[download]

Double the backslashes, or use q instead, as you don't seem to need interpolation.

Moreover, calling perl from perl is usually not needed. Read the output of the command and process it in the script itself. What about using DBI instead of shelling out to mysql ?

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,
[download]

Thank you double back-slashes worked. I am also using DBI module, but my issue is that I wanted to to split result and perl giving me issues. I have $row = $feed_db->fetchrow_array() ; $row is social_going_home , but I only want home, I tried grepping, but it only returns 1 (which means its found) .I can split it and store values into an array and search the array, but I want a one liner.can you help?

So far in order to get what I want I have to split it and then search through it variable $row is "We_need_feed"

my $row =  $feed_db->fetchrow_array() ;

my @words = split (/_/, $row);
foreach(@words)
{
if(/feed*/)
{
$test="$_";
}
}
print("$test\n");
[download]

Might something like this be helpful?

c:\@Work\Perl\monks>perl -wMstrict -le
"my $look_for = qr{ (?<! [[:alpha:]]) home (?! [[:alpha:]]) }xms;
 ;;
 my $row = 'social_going_home';
 my $match = my ($capture) = $row =~ m{ (?<= _) $look_for \z }xmsg;
 ;;
 if ($match) {
   print qq{match, captured '$capture'};
   }
"
match, captured 'home'
[download]

Update: BTW: The pattern  feed* in the match of  if(/feed*/) { ... } matches any of  fee feed feedd feeddd ... Is that what you wanted?

---

Give a man a fish:  <%-{-{-{-<

in order to get what I want

It isn't overly clear what you want. If you have a string with words separated by underscores and just want to return the last such word then you could do this:

my $row = 'We_need_feed';
my ($last) = $row =~ /[^_]*$/g;
print $last;
[download]

or you could split and then pop but maybe extracting the last isn't what you want at all.