#!/usr/bin/perl -w

#below is the small code I use when I like to test
#one line regular expression. it is some times useful.

while(<>){
	chomp;
	#if( /abc/ ){
	#if( /ABC/ ){
	#if( /[a-bA-B]/ ){
	#if( /[a-bA-B_1-9]/ ){
	#if( /\w/ ){
	#if( /\W/ ){
	#if( /\d/ ){
	#if( /\D/ ){
	#if( /[^_]/ ){
	#if( /[^\d]/ ){
	#if( /(abc|ABC)/ ){
	#if( /^ZYX/ ){
	if( /cba$/ ){
		print("matched with: $_ \n");
	}
}
