Today is amazing.nice day 
Today is amazing.nice but still I haven't done anything 
Yesterday was just a normal day 
Tomorrow probably will be amazing.new day 

##</code><code>##

Today is amazing.nice day  
Tomorrow probably will be amazing.new day 

##</code><code>##

#!/usr/bin/perl -w
use strict;
while ( my $line = <> )
    {
        if ( $line =~ m/(\(amazing.+?\))/)
                        {
                        my $string="$1";
                        @allstrings = ($string);
                        }
   }