#!/usr/bin/perl
use warnings;
use strict;

my $a1= "I sit here and think ?";
print "$a1\n";
my $b1 =  reverse $a1;
print "$b1\n";