#!/usr/bin/perl -- use strict; use warnings; my @finalnwlist = "192.169.32.0/255.255.255.0"; my @lines = "/file1 *(rw,sync,no_root_squash,no_subtree_check)"; foreach(@lines) { $_ =~ s/\*/@finalnwlist/g; print "$_\n"; }