{"tags":[{"tag":"textarea","content":"#!/usr/bin/perl\n@days = qw/Mon Tue Wed Thu Fri Sat Sun/;\nprint \"@days\\n\";\n\nprint \"Grep command using \\n\";\n@grepArray = grep(/^S/,@days);\nprint \"@grepArray\\n\";\n\n#find only numbers from array and print\n\n@mixArray = (\"Mon\",1,\"Tue\",2,\"Wed\",3,\"Thu\",4,\"Fri\",5,\"Sat\",6,\"Sun\",7);\nprint \"Grep command using \\n\";\n@grepArray = grep(/\\d/,@mixArray);\nprint \"@grepArray\\n\";","code_language":"perl"}]}